﻿Public Class Corredor

    Private _velocidad As Integer
    Private _direccion As Boolean = True
    Private random As New Random


    Public Property velocidad As Integer
        Get
            Return _velocidad
        End Get
        Set(ByVal value As Integer)
            _velocidad = value
        End Set
    End Property

    Public Property direccion As Boolean
        Get
            Return _direccion
        End Get
        Set(ByVal value As Boolean)
            _direccion = value
        End Set
    End Property

    Public Sub New()
        _velocidad = random.Next(10) + 1
    End Sub

End Class
